home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ Windows DOS Prompt.xpl < prev    next >
Text File  |  2001-05-22  |  3KB  |  82 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="1"
  3. "COUNT"="2"
  4. "UIPATH"="Appearance\System\DOS/Command Prompt"
  5. "NAME"="DOS Prompt Config"
  6. "OSVERSION"="10100"
  7. "VERSION"="1.01"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="DOS Prompt"
  10. "TEXT 2"="Windows Prompt"
  11. "DESCRIPTION 1"="To remind yourself that you are running a full screen DOS session from you can use this plug-in."
  12. "DESCRIPTION 2"="The second statement line is what you'll see as prompt during your DOS session (Windows DOS box), and you won't forget to go back to Windows when you're done working/playing in DOS."
  13. "DESCRIPTION 3"="Example DOS Prompt:" 
  14. "DESCRIPTION 4"="MS-DOS Mode!$_$P$G" 
  15. "DESCRIPTION 5"="Example Windows Prompt:"
  16. "DESCRIPTION 6"="Type EXIT & hit ENTER to return to Windows!$_$P$G"
  17. "AUTHOR"="Xteq Systems"
  18. "CONTACTURL"="http://www.xteq.com"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20. "COMMENT 1"="Thanks to AXCEL216 for this tip."
  21.  
  22.  
  23. 'Declaration of some constants
  24. sF="C:\AUTOEXEC.BAT"
  25. sV1="SET PROMPT="
  26. sV2="SET WINPMT="
  27.  
  28. 'Called when the Plugin is started
  29. Sub Plugin_Initialize
  30.  Call FileSetAttribute(sF,"R-")
  31.  Call FileSetAttribute(sF,"H-")
  32.  
  33.  TxtOpen(sF)
  34.  
  35.  i=TxtFindLine(sV1,false) 'search for first prompt, ignoring case
  36.  if i>0 then
  37.     s=TxtGetLine(i)
  38.     'strip out the part after the "="
  39.     i=InStr(s,"=")      'find where "=" appears
  40.     s=Right(s,len(s)-i) 'extract the part after the "="
  41.     Call SetUIElement(1,s)    'finally, set inside UI
  42.    else
  43.     Call SetUIElement(1,"$p$g") ' use default if nothing is there
  44.  end if     
  45.  
  46.  i=TxtFindLine(sV2,false) 'search for second prompt, ignoring case
  47.  if i>0 then
  48.     s=TxtGetLine(i)
  49.     'strip out the part after the "="
  50.     i=InStr(s,"=")      'find where "=" appears
  51.     s=Right(s,len(s)-i) 'extract the part after the "="
  52.     Call SetUIElement(2,s)    'finally, set inside UI
  53.    else
  54.     Call SetUIElement(2,"$p$g") ' use default if nothing is there
  55.  end if     
  56.  
  57. End Sub
  58.  
  59. 'Called when the Plugin should validate the Data the user has entered
  60. Sub Plugin_CheckData(ElementIndex)
  61. End Sub
  62.  
  63. 'Called when the Plugin should apply the changes
  64. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  65.  s=GetUIElement(1)
  66.  i=TxtFindLine(sV1,false) 'search for second prompt, ignoring case
  67.  Call TxtSetLine(i,sV1 & s) 'write to file
  68.  
  69.  s=GetUIElement(2)
  70.  i=TxtFindLine(sV2,false) 'search for second prompt, ignoring case
  71.  Call TxtSetLine(i,sV2 & s) 'write to file
  72.  
  73.  Call FileBackup(sF) 'backup file
  74.  Call TxtSave() 'save file
  75. End Sub
  76.  
  77. 'Called when the Plugin is about to be removed from memory
  78. Sub Plugin_Terminate
  79.  Call FileSetAttribute(sF,"H+")
  80. End Sub
  81.  
  82.